МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ «ЛЬВІВСЬКА ПОЛІТЕХНІКА» Кафедра ЕОМ ЗВІТ до лабораторної роботи №3 на тему: «Моделювання простих форм цілеспрямованої поведінки. Дослідження роботи стохастичного автомату зі змінною структурою у випадковому середовищі з перемиканням станів» з дисципліни: «Теорія інтелектуальних систем»  Львів – 2015 Мета роботи: Змоделювати та дослідити роботу стохастичного автомату зі змінною структурою у випадковому середовищі з перемиканням станів. Хід роботи: 1. Реалізувати модель випадкового середовища з перемиканням станів E (кількість станів обрати згідно варіанту). Автомат задається двома матрицями: П+ і П–. Відповідно матриця П+ містить ймовірності переходу зі стану в стан після отримання сигналу про виграш, а матриця П– містить ймовірності переходу зі стану в стан після отримання сигналу про програш. Це квадратні матриці (n·m)x(n·m), де n - кількість дій автомату, а m — глибина пам'яті автомату (для всіх варіантів обрати m=100). Таким чином для кожної з n дій виділяється m станів (якщо автомат знаходиться в одному з цих станів, то він виконує відповідну дію). W2 => Середній виграш N Модель оптимальної поведінки Кількість станів середовища Кількість доступних агенту дій  5 W2 3 3   2. Фрагмент тексту програми обчислювального експерименту:  double rk1_ti_step(double x, double t, double h, double q, double fi(double x), double gi(double x), int *seed) { double a21; double k1; double q1; double t1; double w1; double x1; double xstar; a21 = 1.0; q1 = 1.0; t1 = t; x1 = x; w1 = r8_normal_01(seed) * sqrt(q1 * q / h); k1 = h * fi(x1) + h * gi(x1) * w1; xstar = x1 + a21 * k1; return xstar; } double rk2_ti_step(double x, double t, double h, double q, double fi(double x), double gi(double x), int *seed) { a21 = 1.0; a31 = 0.5; a32 = 0.5; q1 = 2.0; q2 = 2.0; t1 = t; x1 = x; w1 = r8_normal_01(seed) * sqrt(q1 * q / h); k1 = h * fi(x1) + h * gi(x1) * w1; t2 = t1 + a21 * h; x2 = x1 + a21 * k1; w2 = r8_normal_01(seed) * sqrt(q2 * q / h); k2 = h * fi(x2) + h * gi(x2) * w2; xstar = x1 + a31 * k1 + a32 * k2; return xstar; } double rk3_ti_step(double x, double t, double h, double q, double fi(double x), double gi(double x), int *seed) a21 = 1.52880952525675; a31 = 0.0; a32 = 0.51578733443615; a41 = 0.53289582961739; a42 = 0.25574324768195; a43 = 0.21136092270067; q1 = 1.87653936176981; q2 = 3.91017166264989; q3 = 4.73124353935667; t1 = t; x1 = x; w1 = r8_normal_01(seed) * sqrt(q1 * q / h); k1 = h * fi(x1) + h * gi(x1) * w1; t2 = t1 + a21 * h; x2 = x1 + a21 * k1; w2 = r8_normal_01(seed) * sqrt(q2 * q / h); k2 = h * fi(x2) + h * gi(x2) * w2; t3 = t1 + a31 * h + a32 * h; x3 = x1 + a31 * k1 + a32 * k2; w3 = r8_normal_01(seed) * sqrt(q3 * q / h); k3 = h * fi(x3) + h * gi(x3) * w3; xstar = x1 + a41 * k1 + a42 * k2 + a43 * k3; return xstar; } double rk4_ti_step(double x, double t, double h, double q, double fi(double x), double gi(double x), int *seed) { a21 = 2.71644396264860; a31 = -6.95653259006152; a32 = 0.78313689457981; a41 = 0.0; a42 = 0.48257353309214; a43 = 0.26171080165848; a51 = 0.47012396888046; a52 = 0.36597075368373; a53 = 0.08906615686702; a54 = 0.07483912056879; q1 = 2.12709852335625; q2 = 2.73245878238737; q3 = 11.22760917474960; q4 = 13.36199560336697; t1 = t; x1 = x; w1 = r8_normal_01(seed) * sqrt(q1 * q / h); k1 = h * fi(x1) + h * gi(x1) * w1; t2 = t1 + a21 * h; x2 = x1 + a21 * k1; w2 = r8_normal_01(seed) * sqrt(q2 * q / h); k2 = h * fi(x2) + h * gi(x2) * w2; t3 = t1 + a31 * h + a32 * h; x3 = x1 + a31 * k1 + a32 * k2; w3 = r8_normal_01(seed) * sqrt(q3 * q / h); k3 = h * fi(x3) + h * gi(x3) * w3; t4 = t1 + a41 * h + a42 * h + a43 * h; x4 = x1 + a41 * k1 + a42 * k2; w4 = r8_normal_01(seed) * sqrt(q4 * q / h); k4 = h * fi(x4) + h * gi(x4) * w4; xstar = x1 + a51 * k1 + a52 * k2 + a53 * k3 + a54 * k4; return xstar; } double rk1_tv_step(doub...